home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / DtlList.tcl < prev    next >
Encoding:
Text File  |  1998-12-04  |  827 b   |  45 lines
  1. # DtlList.tcl --
  2. #
  3. #    This file implements DetailList widgets
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. tixWidgetClass tixDetailList {
  12.     -classname TixDetailList
  13.     -superclass tixScrolledGrid
  14.     -method {
  15.     }
  16.     -flag {
  17.     -hdrbackground
  18.     }
  19.     -configspec {
  20.     {-hdrbackground hdrBackground HdrBackground #606060}
  21.     }
  22.     -alias {
  23.     {-hdrbg -hdrbackground}
  24.     }
  25.     -default {
  26.     {*grid.topMargin        1}
  27.     {*grid.leftMargin        0}
  28.     }
  29. }
  30.  
  31.  
  32. proc tixDetailList:FormatCmd {w area x1 y1 x2 y2} {
  33.     upvar #0 $w data
  34.  
  35.     case $area {
  36.     main {
  37.     }
  38.     default {
  39.         $data(w:grid) format border $x1 $y1 $x2 $y2 \
  40.         -filled 1 \
  41.         -relief raised -bd 1 -bg $data(-hdrbackground)
  42.     }
  43.     }
  44. }
  45.